home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Toolbar2.pxl < prev    next >
Text File  |  2000-12-23  |  3KB  |  109 lines
  1.     UseCoordinates(PIXEL)
  2.     UseBackGround(TRANSPARENT,192,192,192)
  3.     WinGetActive(Win$)
  4.     Set Caption$ = "Bar#2"
  5.     WinTitle(Win$,Caption$)
  6.     WinShow(Caption$,TOPMOST,Res)
  7.     WinExist(Win$,Res)
  8.     If Res = 1 Then WinShow(Win$,UNHIDE,Res)
  9.  
  10. One_Instance:
  11.     WinTitle(Win$,Caption$)
  12.     WinShow(Caption$,TOPMOST,Res)
  13.     WinVersion(Major,Minor,Build,Pack$)
  14.  
  15.     If Major = 3
  16.         WinLocate(Caption$,550,55,714,142,Res)
  17.     Else
  18.         WinLocate(Caption$,550,55,722,149,Res)
  19.     Endif
  20.  
  21.     DrawBackGround
  22.     WaitInput(100)
  23.     GoSub DrawButtons
  24.     InfoMenu(REMOVE)
  25.     SetMenu()  { take out the menu bar completely}
  26.  
  27. Wait_for_Input:
  28.     WaitInput()
  29.  
  30. Min_NA:
  31.     WinShow(Caption$,SHOWMINNOACTIVE,Res)
  32.     Goto Wait_for_Input
  33.     
  34.  
  35. Close:
  36.     End
  37.  
  38.  
  39. Btn_1:
  40.     MessageBox(OK,1,EXCLAMATION,
  41.     "You pressed button #1. This can be used to start other processing or to launch other applications.",
  42.     "Floating Toolbar buttons",Res)
  43.     Goto Wait_for_Input
  44. Btn_2:
  45.     MessageBox(OK,1,EXCLAMATION,
  46.     "You pressed button #2. This can be used to start other processing or to launch other applications.",
  47.     "Floating Toolbar buttons",Res)
  48.     Goto Wait_for_Input
  49. Btn_3:
  50.     MessageBox(OK,1,EXCLAMATION,
  51.     "You pressed button #3. This can be used to start other processing or to launch other applications.",
  52.     "Floating Toolbar buttons",Res)
  53.     Goto Wait_for_Input
  54. Btn_4:
  55.     MessageBox(OK,1,EXCLAMATION,
  56.     "You pressed button #4. This can be used to start other processing or to launch other applications.",
  57.     "Floating Toolbar buttons",Res)
  58.     Goto Wait_for_Input
  59. Btn_5:
  60.     MessageBox(OK,1,EXCLAMATION,
  61.     "You pressed button #5. This can be used to start other processing or to launch other applications.",
  62.     "Floating Toolbar buttons",Res)
  63.     Goto Wait_for_Input
  64. Btn_6:
  65.     MessageBox(OK,1,EXCLAMATION,
  66.     "You pressed button #6. This can be used to start other processing or to launch other applications.",
  67.     "Floating Toolbar buttons",Res)
  68.     Goto Wait_for_Input
  69. Btn_7:
  70.     MessageBox(OK,1,EXCLAMATION,
  71.     "You pressed button #7. This can be used to start other processing or to launch other applications.",
  72.     "Floating Toolbar buttons",Res)
  73.     Goto Wait_for_Input
  74. Btn_8:
  75.     MessageBox(OK,1,EXCLAMATION,
  76.     "You pressed button #8. This can be used to start other processing or to launch other applications.",
  77.     "Floating Toolbar buttons",Res)
  78.     Goto Wait_for_Input
  79. Btn_9:
  80.     Run("WinHlp32")
  81.     Goto Wait_for_Input
  82. Btn_10:
  83.     MessageBox(OKCANCEL,2,EXCLAMATION,
  84. "You pressed button #10 which has been programmed to 
  85. terminate this toolbar. Press OK to terminate, or
  86. CANCEL to leave the toolbar visible. You can also 
  87. terminate this toolbar at any time with Alt-F4.",
  88.     "Floating Toolbar buttons",Res)
  89.     If Res = 1 Then End
  90.     
  91.     Goto Wait_for_Input
  92.  
  93.  
  94. DrawButtons: {Subroutine}
  95.     Button ( 1, 1, 32,32,PUSH,"1",Btn_1,     
  96.         33, 1, 64,32,PUSH,"2",Btn_2,
  97.         65, 1, 96,32,PUSH,"3",Btn_3,  
  98.         97, 1,128,32,PUSH,"4",Btn_4,
  99.            129, 1,160,32,PUSH,"5",Btn_5,
  100.         
  101.          1,33, 32,64,PUSH,"6",Btn_6,    
  102.         33,33, 64,64,PUSH,"7",Btn_7,
  103.         65,33, 96,64,PUSH,"8",Btn_8,
  104.             97,33,128,64,PUSH,"?",Btn_9,
  105.            129,33,160,64,PUSH,"&X",Btn_10)
  106.     Return
  107.  
  108.  
  109.